home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / icpr20c.arc / DIAL.CMD < prev    next >
OS/2 REXX Batch file  |  1987-07-09  |  1KB  |  67 lines
  1. ; This file was created using MAKEOTHR from the package ICPR20
  2. ; designed by Wayne Wolf.  ICPR20 Copyright 1987
  3. ; You may modify this file in any way you wish but since the make
  4. ; files utilize the existing cmd files I discourage it.  If you have
  5. ; comments or useful modifications please contact me, either at
  6. ; unix: ww@ufcsg.ufl.edu  or bbs: PC-EXCHANGE at 404-977-6686.
  7. DialIt:
  8.   Clear
  9.   Message S5
  10.   Wait "A" 2
  11.   IF Waitfor
  12.      Execute S0
  13.   ENDIF
  14.   Switch S7
  15.        Case "H"
  16.           Tran "ATDT"
  17.           Tran S6
  18.           Tran "!"
  19.        EndCase
  20.        Case "R"
  21.           Tran "D"
  22.           Tran S6
  23.           Tran "!"
  24.        EndCase
  25.   EndSwitch
  26.   Pause 2
  27.   RFlush
  28.   Rget S4 40 40
  29. Ring:
  30.   Rget S4 4 70
  31.   FIND S4 "CON"
  32.   IF FOUND
  33.      GOTO Gotit
  34.   ENDIF
  35.   FIND S4 "BUS"
  36.   IF FOUND
  37.      GOTO Busy
  38.   ENDIF
  39.   FIND S4 "ANS"
  40.   IF FOUND
  41.      GOTO Gotit
  42.   ENDIF
  43.   FIND S4 "RIN"
  44.   IF FOUND
  45.      GOTO Ring
  46.   ENDIF
  47. Busy:
  48.   Find S8 "A"
  49.   IF Found
  50.      Message "No answer. Ready to redial."
  51.      Message "Press A (Caps only) a few times to exit back to the main menu"
  52.      Pause 4
  53.      Goto DialIt:
  54.   ELSE
  55.       Execute S0
  56.   ENDIF
  57. Gotit:
  58.      Alarm 2
  59.      ISfile S6
  60.      IF Success
  61.         Execute S6
  62.      ELSE
  63.         LOG Open S6
  64.      ENDIF
  65. ;
  66. Exit
  67.